home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 081 / upl.arc / LOGONMSG.UPL next >
Encoding:
Text File  |  1987-03-08  |  862 b   |  52 lines
  1. ; Delete all old custom welcome messages
  2.  
  3. cwkill
  4. end
  5. run
  6.  
  7.  
  8. ; Change the human sysops to 'extra' so that POLE_MQ
  9. ; will check for their mail
  10.  
  11. ifeq @name 'rick huebner'
  12.   set @priv @extra
  13. else
  14.   ifeq @name 'henry neufeld'
  15.     set @priv @extra
  16.   else
  17.     ifeq @name 'casey schaphorst'
  18.       set @priv @extra
  19.     endif
  20.   endif
  21. endif
  22. run
  23.  
  24.  
  25. ; Create new custom welcome messages
  26.  
  27. ifeq @priv @twit
  28.   print '@name is a twit.'
  29.   fappend @usernum.bbs twit.lgn
  30. else
  31.   mqmsg "1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 40 41"
  32.   ifgt @mail 0
  33.     print '@mail line(s) sent to @name.'
  34.   endif
  35. endif
  36. run
  37.  
  38.  
  39. ; Restore the sysops to 'sysop' priv
  40.  
  41. ifeq @name 'rick huebner'
  42.   set @priv @sysop
  43. else
  44.   ifeq @name 'henry neufeld'
  45.     set @priv @sysop
  46.   else
  47.     ifeq @name 'casey schaphorst'
  48.       set @priv @sysop
  49.     endif
  50.   endif
  51. endif
  52.